home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
Xteq X-Setup
/
xqdcXSP-Setup-EN.exe
/
{app}
/
plugins
/
XQ MSOXP Access Options 1.xpl
< prev
next >
Wrap
Text File
|
2003-07-31
|
1KB
|
51 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="2"
"COUNT"="1"
"UIPATH"="Program Options\Microsoft Office\MS Office XP\Access"
"NAME"="Undo Level"
"VERSION"="1.00"
"LANGUAGE"="VBScript"
"TEXT 1"="Undo Steps:"
"DESCRIPTION 1"="You can configure here how many steps can be undone in Access."
"DESCRIPTION 2"="To restore the original value, clear the field."
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"=" "
sV1="HKCU\Software\Microsoft\Office\10.0\Access\Settings\Number of Undos" 'DW
sPCheck="HKCU\Software\Microsoft\Office\10.0\"
Sub Plugin_Initialize
if RegPathExists(sPCheck) then
s=RegReadValue(sV1)
Call SetUIElement(1,s)
else
Call Disable()
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
if len(s)>0 then
Call RegWriteValue(sV1,s,2)
else
s=RegReadValue(sV1)
if IsEmpty(s)=false then
Call RegDeleteValue(sV1)
end if
end if
Call Logoff
End Sub
Sub Plugin_Terminate
End Sub